#!/encs/bin/perl

open($file, "<", "underbar.txt") or die exit(4);

$count = 0;
@value = 0;
@URL = 0;
while ($line = <$file>) {
	
	if($line =~ /^\s*([^\#][.^\S]+)\s+(([\s]*[.^\S]+)+)\s*$/) {
		$URL[$count] = $1;
		$value[$count] = $2;
		$count++;
	}
}
close $file;

print "URLs:\n";
foreach (@URL) { print $_."\n"; }
print "Values:\n";
foreach (@value) { print $_."\n"; }

exit(5);





